home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
1st_111a.zip
/
INSTALL.INS
< prev
next >
Wrap
Text File
|
1993-05-23
|
16KB
|
438 lines
SPARKWARE
ASSIGN(Default$,0,2)
SAVER 180
:TOP
DISPLAY OFF
CLS
CURSOR OFF
BLINK OFF
FILLSCRN(1,1,25,80,32,31,112)
BOX(3,5,23,75,48,7,1,1)
CLEAR_BOXES
SCREEN(1,SAVE)
DIALOG_BOX(1,0,0,1," About ",4,51,112,112,1,116,15)
DIALOG_BOX(2,0,0,2," What's new ",9,51,112,112,1,116,15)
DIALOG_BOX(3,0,0,3," Install ",14,51,112,112,1,116,15)
DIALOG_BOX(4,0,27,4," Quit ",19,51,112,112,1,116,15)
QPRINT("Thank you for purchasing @READER@ 1.10",5,7,49,-1)
QPRINT("This program will install @READER@",10,7,-1)
QPRINT("onto your computer's hard disk. It")
QPRINT("will also update an older release of")
QPRINT("@READER@ to this new release version.")
QPRINT("Press the highlighted letter or",16,7,-1)
QPRINT("click your mouse on a button to")
QPRINT("make a selection.")
APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
DISPLAY ON
GET(Choice$,Default$)
ASSIGN(Default$,0,3)
CLEAR_BOXES
ON Choice$ GOTO ABOUT,NOTES,INSTALL,QUIT
:QUIT
CLS(7)
BOX(7,20,11,60,48,112,1,1)
QPRINT("Thank you for using @READER@",9,26,62,112)
IF NOT COMPARE(InstallOk$,True) THEN GOTO QUIT1
QPRINT("Type '1ST' to run @READER@",14,-1,-1)
QPRINT("Click on '1stTutor' to view the @READER@ tutorial",15,-1,-1)
:QUIT1
LOCATE 22,1
CURSOR ON
EXIT
:ABOUT
DISPLAY OFF
BOX(3,5,23,75,240,7,1,1)
QPRINT("@READER@ Install",5,-1,-1)
QPRINT("─────────────────")
QPRINT("Copyright 1993 by Mark Herring",9)
QPRINT("All Rights Reserved")
QPRINT("Sparkware",12)
QPRINT("Post Office Box 386")
QPRINT("Hendersonville, Tennessee 37077")
QPRINT("(615) 230-8822 (BBS)",16)
QPRINT("(615) 230-MAIL (Voice)")
QPRINT("Press any key to continue",21,0,241,15)
DISPLAY ON
PAUSE
GOTO TOP
:NOTES
LIST "WHATS.NEW"
GOTO TOP
:INSTALL
ASSIGN(Install_Type$,0,0)
DISPLAY OFF
BOX(3,5,23,75,48,7,1,1)
QPRINT("Installing @READER@",5,7,49,-1)
QPRINT("You may choose to install the complete",8,7,48,7)
APRINT("@READER@ system, print the manuals, or")
QPRINT("only install the add-in systems.")
QPRINT("Press the highlighted letter or",14,7,-1)
QPRINT("click your mouse on a button to")
QPRINT("make a selection.")
APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
DIALOG_BOX(1,0,0,1," Complete install ",4,50,112,112,1,116,15)
DIALOG_BOX(2,0,0,2," Print manuals ",9,50,112,112,1,116,15)
DIALOG_BOX(3,0,0,3," Add-ins ",14,50,112,112,1,116,15)
DIALOG_BOX(4,0,27,4," Quit ",19,50,112,112,1,116,15)
DISPLAY ON
GET(Choice$,4)
CLEAR_BOXES
ON Choice$ GOTO FULL_INSTALL,MANUALS,ADD-INS
GOTO TOP
:FULL_INSTALL
ASSIGN(Install_Type$,0,1)
GOSUB GET_TARGET
IF NOT EXIST Target$+"1ST.EXE" THEN GOTO NEW_INSTALL
ASSIGN(Update$,0,True)
ASSIGN(SetFile$,0,Target$+"1ST.SET")
SET_LOAD SetFile$
SWITCH(10,OFF)
SET_SAVE SetFile$
OPEN("B",1,SetFile$)
SEEK(1,&H159)
ASSIGN(Value$,-60,"QSZ portx %4 sz %3 /NOCLS /CURSOR_OFF /NS")
WRITE(1,Value$)
SEEK(1,&H195)
ASSIGN(Value$,-60,"QSZ portx %4 rz %3 /NOCLS /CURSOR_OFF /NS")
WRITE(1,Value$)
SEEK(1,&H500)
LITERAL ASSIGN(Value$,-50,"@API$(5)QZIP %1 %2 /NOCLS /CURSOR_OFF")
WRITE(1,Value$)
SEEK(1,&H700)
LITERAL ASSIGN(Value$,-50,"@API$(5)QUNZIP %1 %2 %3 /NOCLS /CURSOR_OFF")
WRITE(1,Value$)
CLOSE 1
SCREEN(1,RESTORE)
QPRINT("Installing updated system files",6,-1,-1)
UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
UP_SCRIPT Target$+"SYSTEMS.DAT"
ASSIGN(InstallOk$,0,True)
SCREEN(1,RESTORE)
DISPLAY OFF
QPRINT("This new release of 1stReader changes many of the switch",10,12,-1)
QPRINT("definitions from previous releases. You *MUST* use the")
QPRINT("SETUP/SWITCHES command buttons from the opening screen")
QPRINT("in order to configure your system correctly.")
QPRINT("Press any key to continue...",21,-1,-1)
DISPLAY ON
BEEP
PAUSE
GOTO SCRIPTS
:NEW_INSTALL
QPRINT("Creating system subdirectory...",19,10,-1)
MKDIR Target$
QPRINT("Creating scripts subdirectory...")
MKDIR Scripts$
QPRINT("Creating packets subdirectory...")
MKDIR Packets$
SCREEN(1,RESTORE)
QPRINT("Installing main system files",6,-1,-1)
UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
UNPACK "NEWSYS.ZIP" TO Target$ "*.*"
:SCRIPTS
SCREEN(1,RESTORE)
QPRINT("Installing script files",6,-1,-1)
UNPACK "SCRIPTS.ZIP" TO Scripts$ "*.*"
SCREEN(1,RESTORE)
QPRINT("Copying installation programs...",6,-1,-1)
QPRINT("1stReader keyfile",9,24,-1)
COPY("*.KEY",Target$)
QPRINT("Copying the installation programs...")
COPY("INSTALL.EXE",Target$)
COPY("*.INS",Target$)
QPRINT("Copying QUNZIP.EXE...")
COPY("QUNZIP.EXE",Target$)
QPRINT("Copying the WHATS.NEW file...")
COPY("WHATS.NEW",Target$)
IF COMPARE(Update$,True) THEN GOTO MANUALS
QPRINT("Copying the tutorial packet")
COPY("SPARKY.QTU",Packets$)
COPY("SYSTEMS.DAT",Target$)
GET_BBS
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("Thank you for purchasing @READER@!",5,9,49,15)
QPRINT("Before you can run @READER@ we first",11,9,-1)
QPRINT("need to know a bit about your computer")
QPRINT("system. You need to tell us which")
QPRINT("serial port is used to connect your")
QPRINT("system to your modem.")
QPRINT("Please make your selection now...",21,9,62,15)
DIALOG_BOX(1,0,49,"3F8,4"," Port 1 ",4,51,112,112,0,116,15)
DIALOG_BOX(2,0,50,"2F8,3"," Port 2 ",8,51,112,112,0,116,15)
DIALOG_BOX(3,0,51,"3E8,4"," Port 3 ",12,51,112,112,0,116,15)
DIALOG_BOX(4,0,52,"2E8,3"," Port 4 ",16,51,112,112,0,116,15)
DIALOG_BOX(5,0,27,"0"," No modem ",20,51,112,112,0,116,15)
DISPLAY ON
GET(Serial$,1)
CLEAR_BOXES
IF COMPARE (Serial$,"0") THEN GOTO DISPLAY
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("How fast is your modem?",5,9,49,15)
QPRINT("@READER@ needs to know the maximum",11,9,-1)
QPRINT("speed your modem supports. If you")
QPRINT("are unsure about just how fast your")
QPRINT("modem will transmit data over the")
QPRINT("telephone line we recommend you use")
QPRINT("'1200 baud' for your modem.")
QPRINT("A)",5,52,62,15)
QPRINT("B)",9,52,62,15)
QPRINT("C)",13,52,62,15)
QPRINT("D)",17,52,62,15)
QPRINT("E)",21,52,62,15)
QPRINT("Press (A-E) to select your modem speed...",21,9,62,15)
DIALOG_BOX(1,0,1065,"1200"," 1200 baud ",4,56,112,112,0,116,15)
DIALOG_BOX(2,0,1066,"2400"," 2400 baud ",8,56,112,112,0,116,15)
DIALOG_BOX(3,0,1067,"9600"," 9600 baud ",12,56,112,112,0,116,15)
DIALOG_BOX(4,0,1068,"19200"," 19,200 baud ",16,56,112,112,0,116,15)
DIALOG_BOX(5,0,1069,"38400"," 38,400 baud ",20,56,112,112,0,116,15)
DISPLAY ON
GET(Baud$,1)
CLEAR_BOXES
PICK (ModemInit$,"Select your modem type (use the arrow keys to view more modems): ","MODEMS.DAT",102,1,50,51,50,30,7)
DISPLAY OFF
SCREEN(1,RESTORE)
QPRINT("Which type of telephone service do you have?",5,9,49,15)